| Filename | (eval 419)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3] |
| Statements | Executed 32 statements in 400µs |
| Eval Invoked At | /Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 2 | 2 | 71µs | 70.7s | OpenAPI::Modern::new |
| 1 | 1 | 1 | 11µs | 31µs | OpenAPI::Modern::BEGIN@7 |
| 1 | 1 | 1 | 7µs | 21µs | OpenAPI::Modern::BEGIN@43 |
| 1 | 1 | 1 | 4µs | 4µs | OpenAPI::Modern::BEGIN@12.300 |
| 1 | 1 | 1 | 4µs | 10µs | OpenAPI::Modern::BEGIN@48 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | { | ||||
| 2 | 2 | 0s | my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; | ||
| 3 | 1 | 1µs | my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; | ||
| 4 | 1 | 0s | my $isa_check_for_evaluator = ${$_[1]->{"\$isa_check_for_evaluator"}}; | ||
| 5 | 1 | 1µs | my $isa_check_for_openapi_5fdocument = ${$_[1]->{"\$isa_check_for_openapi_5fdocument"}}; | ||
| 6 | package OpenAPI::Modern; | ||||
| 7 | 2 | 42µs | 2 | 51µs | # spent 31µs (11+20) within OpenAPI::Modern::BEGIN@7 which was called:
# once (11µs+20µs) by Sub::Quote::_clean_eval at line 7 # spent 31µs making 1 call to OpenAPI::Modern::BEGIN@7
# spent 20µs making 1 call to warnings::unimport |
| 8 | # spent 70.7s (71µs+70.7) within OpenAPI::Modern::new which was called 2 times, avg 35.3s/call:
# once (62µs+70.7s) by main::RUNTIME at line 177 of Sub/Defer.pm
# once (9µs+1.21ms) by main::RUNTIME at line 6 of /Users/ether/git/fastly/Heavenly/profiling/jsm-0.558-plus-no-annotations-om-0.037/../prof.pl | ||||
| 9 | ($_QUOTED,$_UNQUOTED) if 0; | ||||
| 10 | # BEGIN quote_sub PRELUDE | ||||
| 11 | package OpenAPI::Modern; | ||||
| 12 | # spent 4µs within OpenAPI::Modern::BEGIN@12.300 which was called:
# once (4µs+0s) by Sub::Quote::_clean_eval at line 17 | ||||
| 13 | 1 | 0s | $^H = 2018; | ||
| 14 | 1 | 1µs | ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU"; | ||
| 15 | 1 | 4µs | %^H = ( | ||
| 16 | ); | ||||
| 17 | 1 | 126µs | 1 | 4µs | } # spent 4µs making 1 call to OpenAPI::Modern::BEGIN@12.300 |
| 18 | # END quote_sub PRELUDE | ||||
| 19 | 1 | 1µs | my $invoker = CORE::shift(); | ||
| 20 | 1 | 0s | my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker; | ||
| 21 | 1 | 1µs | if ($class ne "OpenAPI::Modern") { | ||
| 22 | if ($Moo::MAKERS{$class}) { | ||||
| 23 | if ($Moo::MAKERS{$class}{constructor}) { | ||||
| 24 | package OpenAPI::Modern; | ||||
| 25 | return $invoker->SUPER::new(@_); | ||||
| 26 | } | ||||
| 27 | Moo->_constructor_maker_for($class); | ||||
| 28 | return $invoker->new(@_); | ||||
| 29 | } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) { | ||||
| 30 | return $meta->new_object( | ||||
| 31 | $class->can("BUILDARGS") ? $class->BUILDARGS(@_) | ||||
| 32 | : $class->Moo::Object::BUILDARGS(@_) | ||||
| 33 | ); | ||||
| 34 | } | ||||
| 35 | } | ||||
| 36 | 1 | 9µs | 1 | 70.7s | my $args = $class->BUILDARGS(@_); # spent 70.7s making 1 call to OpenAPI::Modern::BUILDARGS |
| 37 | 1 | 7µs | Carp::croak("BUILDARGS did not return a hashref") unless CORE::ref($args) eq 'HASH'; | ||
| 38 | 1 | 2µs | if (my @missing = grep !exists $args->{$_}, "evaluator", "openapi_document") { | ||
| 39 | Carp::croak("Missing required arguments: ".CORE::join(', ', sort @missing)); | ||||
| 40 | } | ||||
| 41 | 1 | 7µs | my $new = bless({}, $class);; | ||
| 42 | 1 | 1µs | (exists $args->{"evaluator"} and ($new->{"evaluator"} = scalar do { my $value = $args->{"evaluator"}; | ||
| 43 | 5 | 79µs | 4 | 42µs | # spent 21µs (7+14) within OpenAPI::Modern::BEGIN@43 which was called:
# once (7µs+14µs) by Sub::Quote::_clean_eval at line 43 # spent 21µs making 1 call to OpenAPI::Modern::BEGIN@43
# spent 14µs making 1 call to warnings::unimport
# spent 6µs making 1 call to UNIVERSAL::isa
# spent 1µs making 1 call to Scalar::Util::blessed |
| 44 | $value | ||||
| 45 | } | ||||
| 46 | )), | ||||
| 47 | 2 | 31µs | (exists $args->{"openapi_document"} and ($new->{"openapi_document"} = scalar do { my $value = $args->{"openapi_document"}; | ||
| 48 | 5 | 81µs | 4 | 18µs | # spent 10µs (4+6) within OpenAPI::Modern::BEGIN@48 which was called:
# once (4µs+6µs) by Sub::Quote::_clean_eval at line 48 # spent 10µs making 1 call to OpenAPI::Modern::BEGIN@48
# spent 6µs making 1 call to warnings::unimport
# spent 1µs making 1 call to Scalar::Util::blessed
# spent 1µs making 1 call to UNIVERSAL::isa |
| 49 | $value | ||||
| 50 | } | ||||
| 51 | )), | ||||
| 52 | return $new; | ||||
| 53 | } | ||||
| 54 | 1 | 1µs | $$_UNQUOTED = \&new; | ||
| 55 | } | ||||
| 56 | 1 | 5µs | 1; | ||
| 57 | |||||
| 58 | ; |